sHelp
                                     MM.EQP
     i   2
 main
   customer.defined.screens
   pm

 Ì   €   i   2
main
[id]
*(M)MU[mu]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 id                          10 FREE     L                 mu                                                          
 active                       1 YN       L                 *(M)MU[mu]|0                                                
 cust.def.screen             15 FREE     L  MIS.SCREEN     VAL=(+@customer.defined.screens[""])                    
 date.acquired                8 DATE     L                 *(M)MU[mu]|14                                               
 dept                        15 FREE     L  MIS.GL.DEPT    *(M)MU[mu]|4                                            
 dept.chk.ok                 15 FREE     L                 VAL=IF{%MIS.GL.DEPT.user.ok(@dept^MGDP) MGDP}               
 desc                        30 FREE     L                 *(M)MU[mu]|1                                                
 dft.eoc                      7 FREE     L  MIS.GL.EOC     *(M)MU[mu]|15                                           
 eqp.class                    8 FREE     L  MM.EQP.CLASS   *(M)MU[mu]|3                                            
 invoice                     15 FREE     L                 *(M)MU[mu]|13                                               
 last.update                 10 FREE     L                 *(M)MU[mu]UPD                                               
 location                    15 FREE     L                 *(M)MU[mu]|5                                                
 maint.grp                   10 FREE     L  MM.EQP.MAINT   *(M)MU[mu]|17                                           
 maint.grp.ok                10 FREE     L  MM.EQP.MAINT   VAL=%MM.EQP.MAINT.user.ok(maint.grp)                    
 mfr                         10 FREE     L  MIS.MFR        *(M)MU[mu]|9                                            
 mfr.serial.no               15 FREE     L                 *(M)MU[mu]|10                                               
 new.eqp                     10 FREE     L                                                                             
 pm.cds                      15 FREE     L  MIS.SCREEN     VAL=@MM.EQP.WO.TYPE.cust.def.scrn[@MM.EQP.pm.id]        
 pm.freq                     10 FREE     L                 VAL=@MM.EQP.WO.TYPE.freq[@MM.EQP.pm.id]                     
 pm.last.wo                   6 PINT     R  MM.EQP.WO      VAL=%MM.EQP.WO.find.last.wo(id,@pm.id)                  
 pm.priority                  1 CHOICE   L                 VAL=@MM.EQP.WO.TYPE.priority[@MM.EQP.pm.id]                 
 pm.sched                     1 YN       L                 VAL=@MM.EQP.WO.TYPE.active[@MM.EQP.pm.id]                   
 pm.usage                     8 PINT     R                 VAL=@MM.EQP.WO.TYPE.usage[@MM.EQP.pm.id]                    
 pm.usage.freq                5 PINT     R                 VAL=IF{@usage.average&@pm.usage @pm.usage:8D/@usage.av      
                                                           VAL=erage:0D!1}                                             
 po.no                       10 FREE     L                 *(M)MU[mu]|12                                               
 price                        9 MONEY    R                 *(M)MU[mu]|11                                               
 pur.vendor                  11 FREE     L  MIS.VEN        *(M)MU[mu]|6                                            
 purch.facility              10 FREE     L  MIS.PUR.FAC                                                            
 ser.vendor                  11 FREE     L  MIS.VEN        *(M)MU[mu]|7                                            
 user.access                  1 YN       L                 VAL=IF{%MM.EQP.id.M.sel(MM.EQP.id) "Y";"N"}                 
 Ì   €   i   2
customer.defined.screens
[id,  cd.screen]
*(M)MU[mu]CDS[gxx]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 cd.screen                   15 FREE     L  MIS.SCREEN     gxx                                                     
 Ì   €   i   2
pm
[id,  pm.id]
*(M)MU[mu]P[mup]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pm.id                       10 FREE     L  MM.EQP.WO.TYPE mup                                                     

 Index Files                        Subscripts/Physical Base

 component.x                        [component,id]
                                      ?(M)MUCX[muC,mu]

 maint.x                            [maint.grp,id]
                                      ?(M)MUMG[mum,mu]

 name.index                         [desc,id]
                                      ?(M)MUI[muD,mu]

 pm.index                           [id,pm.id]
                                      ?(M)MUPX[mu,mup]